Sub ׸1()
    
    Dim ǹ As PivotTable
    Dim ʵ As PivotField
    Dim ׸ As PivotItem
    Dim ޽ As String
    Dim i As Integer
    
    Set ǹ = ActiveSheet.PivotTables(1)
    
    On Error Resume Next
    
    For Each ʵ In ǹ.PivotFields
    
        For Each ׸ In ʵ.PivotItems
    
            If ׸.DataRange Is Nothing Then
                ׸.Delete
                i = i + 1
            End If
                    
        Next
        
    Next

    ǹ.RefreshTable
    
    ޽ = " ʴ ׸ " & i & "  ã ߽ϴ."
    
    MsgBox ޽, vbInformation, " ׸ "
    
End Sub